unit u_menuconv;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus,biblio;

type
  TF_Mconv = class(TForm)
    MainMenu1: TMainMenu;
    Clientes1: TMenuItem;
    Sair1: TMenuItem;
    MveisBelo1: TMenuItem;
    procedure Sair1Click(Sender: TObject);
    procedure MveisBelo1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Mconv: TF_Mconv;

implementation
uses u_cvbelo;
{$R *.DFM}

procedure TF_Mconv.Sair1Click(Sender: TObject);
begin
  Close;
end;

procedure TF_Mconv.MveisBelo1Click(Sender: TObject);
begin
  executa(tf_convbelo,self);
end;

end.
